home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr11 / pcv05n12.zip / WINWORD.TXT < prev   
Text File  |  1993-06-10  |  557b  |  21 lines

  1. Declare Function IsAppLoaded Lib "Kernel"(Name$) As Integer Alias "GetModuleHandle"
  2.  
  3. Sub MAIN
  4.     FileSave
  5.     A$ = FileName$()
  6.     If IsAppLoaded("_Bnotes.EXE") = 0 Then Call StartNotes
  7.     If IsAppLoaded("_Bnotes.EXE") = 0 Then MsgBox "Can't start Notes" : Goto BackDoor
  8.     Channel = DDEInitiate("Notes", "SendMail")
  9.     If Channel > 0 Then
  10.         DDEExecute Channel, "NewMessage"
  11.         DDEExecute Channel, "AttachFile " + A$
  12.         DDEExecute Channel, "SEND"
  13.         DDETerminate Channel
  14.     End If
  15. BackDoor:
  16. End Sub
  17.  
  18. Sub StartNotes
  19.     Shell "C:\NOTES\_BNOTES.EXE", 0
  20. End Sub
  21.